Business Assistant/Business Assistant.iso/indus/clients/main.prg

Text File | 1985-05-31 | 12KB | 591 lines

PROCEDURE A1
CLEAR
@01,00 SAY 'LOADING......'
SET FORMAT TO A1
APPEND
SET FORMAT TO
CURR = '01'
RETURN

PROCEDURE P1
*begin p1.prg
GOTO TOP
PAGE = 0
line = 99
heading = 'current cases'
clear
set color to w*/r
@01,00 say 'position printer and hit any key'
set cons off
wait
set color to 6/1,7/4,6
set cons on
@01,00
@05,00 say 'Printing report'
@06,00 say 'please wait'
set cons off
DO WHILE .NOT. EOF()
   IF line >56
      IF page >=1
         EJECT
      ENDIF page >=1
    page = page+1
   SET PRINT ON
   ?
   ?'PAGE '+STR(PAGE)
   ?'                     CURRENT CASES  FOR SECRETARY'
   ? DATE()
   ?
   ?
   ?
   SET PRINT OFF
    STORE 6 to line
   ENDIF LINE >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+' -'+ TRIM(CSTREET)+'- '+ TRIM(CCITY_ST)
   ? '   '+ FILE_NMBR, CPHONE +' '+REFERENCE
   ?
   SET PRINT OFF
   LINE = LINE+3
SKIP
ENDDO .NOT. EOF()
EJECT
SET PRINT OFF
SET CONS ON
SET DEVICE to SCREEN
store '02' to curr
RETURN
*eof p1.prg

PROCEDURE P2
*begin P2.PRG
CLEAR
set color to w*/r
@01,00 say 'position printer at top of paper and hit any key'
set cons off
wait
set cons on
set color to 6/1,7/4,6
@01,00
@05,00 say 'printing ......'
set cons off
GOTO TOP
line = 99
page = 0
DO WHILE .NOT. EOF()
   IF line >56
     If page >= 1
        eject
     ENDIF page >=1
     page = page+1
     SET PRINT ON
     ?
     ?' PAGE '+STR(PAGE)
     ?'                    CURRENT CASES FOR ATTORNEY           '
     ? DATE()
     ?
     ?
     ?
     SET PRINT OFF
     LINE = 6
   ENDIF line >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+'  ( '+ FILE_NMBR +')  '+ TRIM(CPHONE),;
       TRIM(ALTPHONE)+' '+'CAUSE NO.'+ ' '+ CAUSE_NMBR ì

   ? '   '+ TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
   ?
   set print off
   line = line+3
 SKIP
ENDDO WHILE .NOT. EOF()
eject
set print off
set cons on
set device to screen
store '02' to curr
RETURN

PROCEDURE P3
*P3.PRG
CLEAR
set color to w*/r
@01,00 say CHR(7)+'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
set cons on
@01,00
@05,00 SAY 'printing both a report for the attorney and secretary'
set cons off
GOTO TOP
PAGE = 0
line = 99
heading = 'current cases'
DO WHILE .NOT. EOF()
   IF line >56
      IF page >=1
         EJECT
      ENDIF page >=1
    page = page+1
   SET PRINT ON
   ?
   ?'PAGE '+STR(PAGE)
   ?'                     CURRENT CASES  FOR SECRETARY'
   ? DATE()
   ?
   ?
   ?
   SET PRINT OFF
    STORE 6 to line
   ENDIF LINE >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+' -'+ TRIM(CSTREET)+'- '+ TRIM(CCITY_ST)
   ? '   '+ FILE_NMBR, CPHONE +' '+REFERENCE
   ?
   SET PRINT OFF
   LINE = LINE+3
SKIP
ENDDO .NOT. EOF()
EJECT
SET PRINT OFF
GOTO TOP
line = 99
page = 0
DO WHILE .NOT. EOF()
   IF line >56
     If page >= 1
        eject
     ENDIF page >=1
     page = page+1
     SET PRINT ON
     ?
     ?' PAGE '+STR(PAGE)
     ?'                    CURRENT CASES FOR ATTORNEY           '
     ? DATE()
     ?
     ?
     ?
     SET PRINT OFF
     LINE = 6
   ENDIF line >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+'  ( '+ FILE_NMBR +')  '+ TRIM(CPHONE),;
       TRIM(ALTPHONE)+' '+'CAUSE NO.'+ ' '+ CAUSE_NMBR ì

   ? '   '+ TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
   ?
   set print off
   line = line+3
 SKIP
ENDDO WHILE .NOT. EOF()
eject
set print off
set cons on
set device to screen
store '02' to curr
return
*EOF P3.PRG

PROCEDURE P4
CLEAR
@01,00 SAY 'LOADING......'
SELE CLOSED
SET INDEX TO CLOSNAME, CLOSNMBR
LINE = 99
PAGE = 0
set color to w*/r
@03,00 say 'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
DO WHILE .NOT. EOF()
   IF LINE >58
     IF PAGE >= 1
        EJECT
     ENDIF page >= 1
     page = page+1
     set print on
     ?
     ?'PAGE:'+STR(PAGE)
     ?'                      CLOSED CASES BY CLIENT NAME'
     ? DATE()
     ?
     ?
     ?
     set print off
     line = 6
     ENDIF LINE >58
     SET PRINT ON
     ? clientname+'  '+file_nmbr+'  '+trim(reference)
     ?
     set print off
     LINE = LINE+2
     skip
ENDDO .NOT. EOF()
set cons on
CURR = '02'
RETURN

PROCEDURE P5
CLEAR
@01,00 SAY 'LOADING......'
SELE CLOSED
SET INDEX TO CLOSNMBR, CLOSNAME
LINE = 99
set color to w*/r
@03,00 say 'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
set cons on
@03,00 say 'printing.....'
set cons off
PAGE = 0
DO WHILE .NOT. EOF()
   IF LINE >58
     IF PAGE >= 1
        EJECT
     ENDIF page >= 1
     page = page+1
     set print on
     ?
     ?'PAGE:'+STR(PAGE)
     ?'                      CLOSED CASES BY CLIENT NUMBER'
     ? DATE()
     ?
     ?
     ?
     set print off
     line = 6
     ENDIF LINE >58
     SET PRINT ON
     ? file_nmbr+'  '+clientname +'  '+trim(reference)
     ?
     set print off
     LINE = LINE+2
     skip
ENDDO .NOT. EOF()
set cons on
CURR = '02'
RETURN

PROCEDURE E1
clear
mname = space(20)
doname = .t.
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 If eof()
   @15,25 SAY CHR(7)+'no client with that name - try again'
   xx = 1
   DO WHILE XX <35
      XX = XX+1
      mname = space(20)
   ENDDO while xx <35
   loop
 endif
 SET FORMAT TO E1
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
curr = '03'
return

PROCEDURE E2
clear
mname = space(06)
set index to currnmbr, currname
doname = .t.
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client number ' get mname PICT '!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF eof()
    @15,23 say CHR(7)+'no client with that number - try again'
    xx = 1
    DO WHILE XX <35
       xx = xx+1
    ENDDO while xx <35
    mname = space(6)
    loop
  ENDIF eof()
 SET FORMAT TO E1
 READ
 SET FORMAT TO
 mname = space(06)
ENDDO while doname
set index to currname, currnmbr
curr = '03'
return

PROCEDURE E3
clear
mname = space(20)
doname = .t.
SELE CLOSED
SET INDEX TO CLOSNAME, CLOSNMBR
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF EOF()
    @15,23 SAY CHR(7)+'no client with that name - try again'
    xx = 1
    DO WHILE XX <35
       xx = xx+1
    ENDDO while xx<35
    mname = space(20)
    LOOP
 ENDIF EOF()
 SET FORMAT TO E2
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
SELE CURRENT
SET INDEX TO CURRNAME, CURRNMBR
curr = '03'
return

PROCEDURE E4
clear
mname = space(06)
doname = .t.
sele closed
set index to closnmbr, closname
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client number ' get mname PICT '!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF EOF()
   @15,23 SAY CHR(7)+'no client with that number - try again'
   xx = 1
   DO WHILE XX <35
      XX = XX+1
   ENDDO while xx<35
   mname = space(6)
   LOOP
 ENDIF EOF()
 SET FORMAT TO E2
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
sele current
set index to currname, currnmbr
curr = '03'
return

PROCEDURE C1
*BEGIN C1.PRG
clear
mchoice = ' '
mname = space(20)
mclose = .t.
mdele = 0
DO WHILE MCLOSE = .T.
 @05,05 say 'enter client name or'
 @06,05 say '        (cr) to exit ' get mname pict '!!!!!!!!!!!!!!!!!!!!'
 READ